﻿Imports EVOLTA.Promocion.Bl.Bc
Imports EVOLTA.Promocion.Bl.Be

Partial Class mantenedores_entidadFin
    Inherits System.Web.UI.Page

    Private entidads As List(Of EentidadFin) = Nothing
    Private cuentas As List(Of EctaCorriente) = Nothing
    Private instancias As List(Of EseguimientoFin) = Nothing
    Private monedas As List(Of Emoneda) = Nothing

    Dim expression As String = Nothing
    Dim direction As SortDirection = SortDirection.Ascending

#Region "           Formulario                              "
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.CacheControl = "no-cache"
        Response.AddHeader("Pragma", "no-cache")
        Response.Expires = -1
        '***********************************************************'
        btnAgregarEntidad.Attributes.Add("onclick", "MuestraPanelEntidad(); return false;")
        btnAgregarCta.Attributes.Add("onclick", "MuestraPanelCuenta(); return false;")
        btnAgregarSeguimiento.Attributes.Add("onclick", "MuestraPanelInstancia(); return false;")
        txtTasaInteresactiva.Attributes.Add("onKeyUp", "calcularTasa(); return false;")
        txtTasaSeguroDesgravamen.Attributes.Add("onKeyUp", "calcularTasa(); return false;")
        If Not IsPostBack Then
            cargarEntidades()
            cargarEstado()
            cargarMoneda()
            cargarEstadoCuenta()
            cargarEstadoInstancia()
        End If
    End Sub
#End Region

#Region "           Entidad                                 "
    Private Sub cargarEntidades()
        entidads = RentFinanciera.SeleccionarTodo(Me.Master.descEmpresa, False)
        Session("lista") = entidads
        If Not entidads Is Nothing Then
            gvwListaEnt.DataSource = entidads
            gvwListaEnt.DataBind()
        End If
    End Sub
    Private Sub cargarEstado()
        Dim Eestado As New Ecommons
        selEstadoEntFin.DataSource = Eestado.estado
        selEstadoEntFin.DataTextField = "descripcion"
        selEstadoEntFin.DataValueField = "codigo"
        selEstadoEntFin.DataBind()
    End Sub
    Protected Sub gvwListaEnt_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) _
    Handles gvwListaEnt.PageIndexChanging

    End Sub
    Protected Sub gvwListaEnt_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) _
    Handles gvwListaEnt.RowCommand
        Select Case e.CommandName
            Case "Edit"

            Case "Delete"
                Dim pentidadFin As New EentidadFin
                pentidadFin.idEntidadFin = e.CommandArgument
                pentidadFin.idUsuario = Me.Master.idUsuario
                RentFinanciera.Eliminar(Me.Master.descEmpresa, pentidadFin)
                cargarEntidades()
            Case "Ver"
                txtIdEntidad.Text = e.CommandArgument
                cargarCtaCorriente(e.CommandArgument)
                cargarInstanciaSeg(e.CommandArgument)
                'cargarMoneda()
                'cargarEstadoCuenta()
                'cargarEstadoInstancia()
        End Select
    End Sub
    Protected Sub lnkBtn_CommandEntidades(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.CommandEventArgs) _
        Handles lnkBtnCodigo.Command, lnkBtnEntidad.Command, lnkBtnEstadoEnt.Command
        entidads = Session("lista")
        Select Case e.CommandName
            Case "lnkBtnCodigo"
                Dim List = From d In entidads _
                           Order By d.idEntidadFin _
                           Select d
                gvwListaEnt.DataSource = List
                gvwListaEnt.DataBind()
            Case "lnkBtnEntidad" : expression = e.CommandArgument
                Dim List = From d In entidads _
                           Order By d.descEntidadFin _
                           Select d
                gvwListaEnt.DataSource = List
                gvwListaEnt.DataBind()
            Case "lnkBtnEstadoEnt" : expression = e.CommandArgument
                Dim List = From d In entidads _
                           Order By d.estado _
                           Select d
                gvwListaEnt.DataSource = List
                gvwListaEnt.DataBind()
        End Select
    End Sub
    Protected Sub gvwListaEnt_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) _
    Handles gvwListaEnt.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Attributes.Add("OnMouseOver", "Resaltar_On(this);")
            e.Row.Attributes.Add("OnMouseOut", "Resaltar_Off(this);")
            e.Row.Attributes("OnClick") = Page.ClientScript.GetPostBackClientHyperlink(Me.gvwListaEnt, "Select$" + e.Row.RowIndex.ToString)
            e.Row.Style.Add("cursor", "hand")
        End If
    End Sub
    Protected Sub gvwListaEnt_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles gvwListaEnt.RowDeleting

    End Sub
    Protected Sub gvwListaEnt_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles gvwListaEnt.RowEditing
        Dim id As Int32 = CType(CType(gvwListaEnt.Rows(e.NewEditIndex).FindControl("lnkCodigo"), LinkButton).Text, Int32)
        entidads = Session("lista")
        Dim LentidadFin = From v In entidads _
                            Where v.idEntidadFin = id _
                            Select v
        lblTituloEntidad.Text = "Entidad Financiera [Modificar]"
        lblTituloEntidad.ToolTip = "Modificar"
        txtIdEntidad.Text = LentidadFin.ElementAt(0).idEntidadFin
        txtdescEntidad.Value = LentidadFin.ElementAt(0).descEntidadFin
        txtNomRepUno.Value = LentidadFin.ElementAt(0).nomRepUno
        txtApePatRepUno.Value = LentidadFin.ElementAt(0).apePaternoUno
        txtApeMatRepUno.Value = LentidadFin.ElementAt(0).apeMaternoUno
        txtCargoRepUno.Value = LentidadFin.ElementAt(0).cargoRepUno
        txtTelRepUno.Value = LentidadFin.ElementAt(0).telRepUno
        txtNomRepDos.Value = LentidadFin.ElementAt(0).nomRepDos
        txtApePatRepDos.Value = LentidadFin.ElementAt(0).apePaternoDos
        txtApeMatRepDos.Value = LentidadFin.ElementAt(0).apeMaternoDos
        txtCargoRepDos.Value = LentidadFin.ElementAt(0).cargoRepDos
        txtTelRepDos.Value = LentidadFin.ElementAt(0).telRepDos
        txtIntCuota.Text = LentidadFin.ElementAt(0).porcInteres
        txtCuotaInic.Value = LentidadFin.ElementAt(0).porcCuotaInic
        txtTasaInteresactiva.Value = LentidadFin.ElementAt(0).tasaInteresActiva
        txtTasaSeguroDesgravamen.Value = LentidadFin.ElementAt(0).tasaSegurpDesgravamen
        txtTasaEfectivaAnual.Value = LentidadFin.ElementAt(0).tasaEfectivaAnual
        txtTasaEfectivaMensual.Value = LentidadFin.ElementAt(0).tasaEfectivaMensual
        hidTasaEfectivaAnual.Value = LentidadFin.ElementAt(0).tasaEfectivaAnual
        hidTasaEfectivaMensual.Value = LentidadFin.ElementAt(0).tasaEfectivaMensual
        txtMontoBono.Value = LentidadFin.ElementAt(0).montoBono.ToString("###,###,##0.00")
        txtPortesComisones.Value = LentidadFin.ElementAt(0).portesComisiones
        txtFactorSeguro.Value = LentidadFin.ElementAt(0).factorSeguro
        selEstadoEntFin.SelectedIndex = LentidadFin.ElementAt(0).estado
        mpEntidadFin.Show()
    End Sub
    Protected Sub btnGuardarEntFin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGuardarEntFin.Click
        If txtdescEntidad.Value.Trim.Length > 0 AndAlso txtNomRepUno.Value.Trim.Length > 0 AndAlso txtApePatRepUno.Value.Trim.Length > 0 AndAlso txtApeMatRepUno.Value.Trim.Length > 0 Then
            Dim jsMensaje As String = Nothing
            Dim interes As Decimal = CDec(IIf(txtIntCuota.Text.Trim.Length = 0, 0, txtIntCuota.Text.Trim))
            Dim cuota As Decimal = CDec(IIf(txtCuotaInic.Value.Trim.Length = 0, 0, txtCuotaInic.Value.Trim))
            Dim pentidadFin As EentidadFin = Nothing
            If lblTituloEntidad.ToolTip = "Registrar" Then
                pentidadFin = New EentidadFin
                With pentidadFin
                    .descEntidadFin = txtdescEntidad.Value.Trim.ToUpper
                    .nomRepUno = txtNomRepUno.Value.Trim.ToUpper
                    .apePaternoUno = txtApePatRepUno.Value.Trim.ToUpper
                    .apeMaternoUno = txtApeMatRepUno.Value.Trim.ToUpper
                    .cargoRepUno = txtCargoRepUno.Value.Trim.ToUpper
                    .telRepUno = txtTelRepUno.Value.Trim.ToUpper
                    .nomRepDos = txtNomRepDos.Value.Trim.ToUpper
                    .apePaternoDos = txtApePatRepDos.Value.Trim.ToUpper
                    .apeMaternoDos = txtApeMatRepDos.Value.Trim.ToUpper
                    .cargoRepDos = txtCargoRepDos.Value.Trim.ToUpper
                    .telRepDos = txtTelRepDos.Value.Trim.ToUpper
                    .porcInteres = interes
                    .porcCuotaInic = cuota                    
                    .tasaInteresActiva = IIf(txtTasaInteresactiva.Value.Length = 0, 0.0, txtTasaInteresactiva.Value)
                    .tasaSegurpDesgravamen = IIf(txtTasaSeguroDesgravamen.Value.Length = 0, 0.0, txtTasaSeguroDesgravamen.Value)
                    '.tasaEfectivaAnual = IIf(txtTasaEfectivaAnual.Value.Length = 0, 0.0, txtTasaEfectivaAnual.Value)
                    '.tasaEfectivaMensual = IIf(txtTasaEfectivaMensual.Value.Length = 0, 0.0, txtTasaEfectivaMensual.Value)
                    .tasaEfectivaAnual = IIf(hidTasaEfectivaAnual.Value.Length = 0, 0.0, hidTasaEfectivaAnual.Value)
                    .tasaEfectivaMensual = IIf(hidTasaEfectivaMensual.Value.Length = 0, 0.0, hidTasaEfectivaMensual.Value)
                    .montoBono = IIf(txtMontoBono.Value.Length = 0, 0.0, txtMontoBono.Value)
                    .portesComisiones = IIf(txtPortesComisones.Value.Length = 0, 0.0, txtPortesComisones.Value)
                    .factorSeguro = IIf(txtFactorSeguro.Value.Length = 0, 0.0, txtFactorSeguro.Value)
                End With
                Dim resultado As Boolean = RentFinanciera.Añadir(Me.Master.descEmpresa, pentidadFin)
                If resultado Then
                    jsMensaje = "<script>javascript:alert(' Se registro correctamente.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                    cargarEntidades()
                Else
                    'txtMensajes.Value = "No se pudo registrar."
                End If
            ElseIf lblTituloEntidad.ToolTip = "Modificar" Then
                pentidadFin = New EentidadFin
                With pentidadFin
                    .idEntidadFin = CType(txtIdEntidad.Text, Int32)
                    .descEntidadFin = txtdescEntidad.Value.Trim.ToUpper
                    .nomRepUno = txtNomRepUno.Value.Trim.ToUpper
                    .apePaternoUno = txtApePatRepUno.Value.Trim.ToUpper
                    .apeMaternoUno = txtApeMatRepUno.Value.Trim.ToUpper
                    .cargoRepUno = txtCargoRepUno.Value.Trim.ToUpper
                    .telRepUno = txtTelRepUno.Value.Trim.ToUpper
                    .nomRepDos = txtNomRepDos.Value.Trim.ToUpper
                    .apePaternoDos = txtApePatRepDos.Value.Trim.ToUpper
                    .apeMaternoDos = txtApeMatRepDos.Value.Trim.ToUpper
                    .cargoRepDos = txtCargoRepDos.Value.Trim.ToUpper
                    .telRepDos = txtTelRepDos.Value.Trim.ToUpper
                    .porcInteres = interes
                    .porcCuotaInic = cuota
                    .tasaInteresActiva = IIf(txtTasaInteresactiva.Value.Length = 0, 0.0, txtTasaInteresactiva.Value)
                    .tasaSegurpDesgravamen = IIf(txtTasaSeguroDesgravamen.Value.Length = 0, 0.0, txtTasaSeguroDesgravamen.Value)
                    .tasaEfectivaAnual = IIf(hidTasaEfectivaAnual.Value.Length = 0, 0.0, hidTasaEfectivaAnual.Value)
                    .tasaEfectivaMensual = IIf(hidTasaEfectivaMensual.Value.Length = 0, 0.0, hidTasaEfectivaMensual.Value)
                    .montoBono = IIf(txtMontoBono.Value.Length = 0, 0.0, txtMontoBono.Value)
                    .portesComisiones = IIf(txtPortesComisones.Value.Length = 0, 0.0, txtPortesComisones.Value)
                    .factorSeguro = IIf(txtFactorSeguro.Value.Length = 0, 0.0, txtFactorSeguro.Value)
                    .estado = selEstadoEntFin.Value
                End With
                RentFinanciera.Editar(Me.Master.descEmpresa, pentidadFin)
                jsMensaje = "<script>javascript:alert(' Se modifico correctamente.');</script>)"
                Controls.Add(New LiteralControl(jsMensaje))
                cargarEntidades()
            End If
            lblTituloEntidad.ToolTip = "Registrar"
        End If
    End Sub
    Protected Sub btnCancelarEntFin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelarEntFin.Click
        lblTituloEntidad.ToolTip = "Registrar"
        mpEntidadFin.CancelControlID = "btnCancelarEntFin"
    End Sub
#End Region

#Region "           Cuenta                                  "
    Private Sub cargarCtaCorriente(ByVal idEntidadFina As Int32)
        cuentas = RctaCorriente.SeleccionarTodo(Me.Master.descEmpresa, False, idEntidadFina)
        Session("ctaCorriente") = cuentas
        gvwListaCuenta.DataSource = cuentas
        gvwListaCuenta.DataBind()
    End Sub
    Private Sub cargarEstadoCuenta()
        Dim EestadoCuenta As New Ecommons
        selEstadoCta.DataSource = EestadoCuenta.estado
        selEstadoCta.DataTextField = "descripcion"
        selEstadoCta.DataValueField = "codigo"
        selEstadoCta.DataBind()
    End Sub
    Private Sub cargarMoneda()
        'monedas = Rmoneda.SeleccionarTodo(Me.Master.descEmpresa, True)
        'Session("listaMoneda") = monedas
        'If Not entidads Is Nothing Then
        selMoneda.DataSource = Rmoneda.SeleccionarTodo(Me.Master.descEmpresa, True) 'monedas
        selMoneda.DataTextField = "descMoneda"
        selMoneda.DataValueField = "idMoneda"
        selMoneda.DataBind()
        'End If
    End Sub
    Protected Sub gvwListaCuenta_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) _
        Handles gvwListaCuenta.RowCommand
        Select Case e.CommandName
            Case "Edit"
            Case "Delete"
                Dim ctaCorriente As New EctaCorriente
                ctaCorriente.idEntidadFin = CInt(txtIdEntidad.Text)
                ctaCorriente.idCuenta = e.CommandArgument
                ctaCorriente.idUsuario = Me.Master.idUsuario
                RctaCorriente.Eliminar(Me.Master.descEmpresa, ctaCorriente)
                cargarCtaCorriente(CInt(txtIdEntidad.Text))
        End Select
    End Sub
    Protected Sub lnkBtn_CommandCuentas(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.CommandEventArgs) _
    Handles lnkBtnCta.Command, lnkBtnEstadoCtaCorriente.Command
        cuentas = Session("lista")
        Select Case e.CommandName
            Case "lnkBtnCta"
                Dim List = From d In cuentas _
                           Order By d.nroCuenta _
                           Select d
                gvwListaCuenta.DataSource = List
                gvwListaCuenta.DataBind()
            Case "lnkBtnEstadoCtaCorriente" : expression = e.CommandArgument
                Dim List = From d In cuentas _
                           Order By d.estado _
                           Select d
                gvwListaCuenta.DataSource = List
                gvwListaCuenta.DataBind()
        End Select
    End Sub
    Protected Sub gvwListaCuenta_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) _
    Handles gvwListaCuenta.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Attributes.Add("OnMouseOver", "Resaltar_On(this);")
            e.Row.Attributes.Add("OnMouseOut", "Resaltar_Off(this);")
            e.Row.Attributes("OnClick") = Page.ClientScript.GetPostBackClientHyperlink(Me.gvwListaCuenta, "Select$" + e.Row.RowIndex.ToString)
            e.Row.Style.Add("cursor", "hand")
        End If
    End Sub
    Protected Sub gvwListaCuenta_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) _
    Handles gvwListaCuenta.RowDeleting
        'Dim lnk As LinkButton = CType(gvwListaCuenta.Rows(e.RowIndex).FindControl("lnkCtaCorriente"), LinkButton)
        'RctaCorriente.Eliminar(lnk.AccessKey, lnk.CommandArgument)
        'cargarCtaCorriente(lnk.CommandArgument)
    End Sub
    Protected Sub gvwListaCuenta_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) _
    Handles gvwListaCuenta.RowEditing
        Dim lnk As LinkButton = CType(gvwListaCuenta.Rows(e.NewEditIndex).FindControl("lnkCtaCorriente"), LinkButton)
        Dim id As Int32 = lnk.AccessKey
        cuentas = Session("ctaCorriente")
        Dim LctaCorriente = From v In cuentas _
                            Where v.idCuenta.ToString = id _
                            Select v
        lblTituloCtaCorriente.Text = "Número de Cuenta [Modificar]"
        lblTituloCtaCorriente.ToolTip = "Modificar"
        cargarMoneda()
        txtIdCuenta.Text = LctaCorriente.ElementAt(0).idCuenta
        selMoneda.SelectedIndex = LctaCorriente.ElementAt(0).Emoneda.idMoneda
        txtNroCta.Text = LctaCorriente.ElementAt(0).nroCuenta
        selEstadoCta.SelectedIndex = LctaCorriente.ElementAt(0).estado
        mpCuenta.Show()
    End Sub
    Protected Sub btnGuardarCuenta_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGuardarCta.Click
        If selMoneda.Value.Trim.Length > 0 AndAlso txtNroCta.Text.Trim.Length Then
            Dim jsMensaje As String = Nothing
            Dim pctaCorriente As EctaCorriente = Nothing
            If lblTituloCtaCorriente.ToolTip = "Registrar" Then
                pctaCorriente = New EctaCorriente
                With pctaCorriente
                    .idEntidadFin = CInt(txtIdEntidad.Text)
                    .nroCuenta = txtNroCta.Text
                    .Emoneda = New Emoneda
                    .Emoneda.idMoneda = selMoneda.SelectedIndex
                    .idUsuario = Me.Master.idUsuario
                End With
                Dim resultado As Boolean = RctaCorriente.Añadir(Me.Master.descEmpresa, pctaCorriente)
                If resultado Then
                    jsMensaje = "<script>javascript:alert(' Se registro correctamente.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                    cargarCtaCorriente(CInt(txtIdEntidad.Text))
                Else
                    'txtMensajes.Value = "No se pudo registrar."
                End If

            ElseIf lblTituloCtaCorriente.ToolTip = "Modificar" Then
                pctaCorriente = New EctaCorriente
                With pctaCorriente
                    .idEntidadFin = CInt(txtIdEntidad.Text)
                    .idCuenta = CType(txtIdCuenta.Text, Int32)
                    .nroCuenta = txtNroCta.Text
                    .Emoneda = New Emoneda
                    .Emoneda.idMoneda = selMoneda.SelectedIndex
                    .estado = selEstadoCta.SelectedIndex
                    .idUsuario = Me.Master.idUsuario
                End With
                jsMensaje = "<script>javascript:alert(' Se modifico correctamente.');</script>)"
                Controls.Add(New LiteralControl(jsMensaje))
                'RctaCorriente.Editar(CType(txtId.Text, Int32), selTpoCta.SelectedIndex, txtNroCta.Value.Trim.ToUpper)
                RctaCorriente.Editar(Me.Master.descEmpresa, pctaCorriente)
                cargarCtaCorriente(CInt(txtIdEntidad.Text))
            End If
            lblTituloCtaCorriente.ToolTip = "Registrar"
        End If
    End Sub
    Protected Sub btnCancelarCta_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelarCta.Click
        lblTituloCtaCorriente.ToolTip = "Registrar"
        mpCuenta.CancelControlID = "btnCancelarCta"
    End Sub
#End Region

#Region "           InstanciaSeguimiento                    "
    Private Sub cargarInstanciaSeg(ByVal idEntidadFina As Int32)
        instancias = RSeguimientoFin.SeleccionarTodo(Me.Master.descEmpresa, False, idEntidadFina)
        Session("instanciasSeguimiento") = instancias
        gvwListaSeguimiento.DataSource = instancias
        gvwListaSeguimiento.DataBind()
    End Sub
    Private Sub cargarEstadoInstancia()
        Dim EestadoInstancia As New Ecommons
        selEstadoInstancia.DataSource = EestadoInstancia.estado
        selEstadoInstancia.DataTextField = "descripcion"
        selEstadoInstancia.DataValueField = "codigo"
        selEstadoInstancia.DataBind()
    End Sub
    Protected Sub lnkBtn_CommandInstanciaSeguim(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.CommandEventArgs) _
    Handles lnkBtnSeguimiento.Command, lnkBtnEstadoSeguimiento.Command
        instancias = Session("lista")
        Select Case e.CommandName
            Case "lnkBtnSeguimiento"
                Dim List = From d In instancias _
                           Order By d.descSeguimiento _
                           Select d
                gvwListaEnt.DataSource = List
                gvwListaEnt.DataBind()
            Case "lnkBtnEstadoSeguimiento" : expression = e.CommandArgument
                Dim List = From d In instancias _
                           Order By d.estado _
                           Select d
                gvwListaSeguimiento.DataSource = List
                gvwListaSeguimiento.DataBind()
        End Select
    End Sub
    Protected Sub gvwListaSeguimiento_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) _
    Handles gvwListaSeguimiento.RowCommand
        Select Case e.CommandName
            Case "Edit"
            Case "Delete"
                Dim seguimientoFin As New EseguimientoFin
                seguimientoFin.idEntidadFin = CInt(txtIdEntidad.Text)
                seguimientoFin.idSeguimiento = e.CommandArgument
                seguimientoFin.idUsuario = Me.Master.idUsuario
                RSeguimientoFin.Eliminar(Me.Master.descEmpresa, seguimientoFin)
                cargarInstanciaSeg(CInt(txtIdEntidad.Text))
        End Select
    End Sub
    Protected Sub gvwListaSeguimiento_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) _
    Handles gvwListaSeguimiento.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Attributes.Add("OnMouseOver", "Resaltar_On(this);")
            e.Row.Attributes.Add("OnMouseOut", "Resaltar_Off(this);")
            e.Row.Attributes("OnClick") = Page.ClientScript.GetPostBackClientHyperlink(Me.gvwListaSeguimiento, "Select$" + e.Row.RowIndex.ToString)
            e.Row.Style.Add("cursor", "hand")
        End If
    End Sub
    Protected Sub gvwListaSeguimiento_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) _
    Handles gvwListaSeguimiento.RowDeleting
        'Dim lnk As LinkButton = CType(gvwListaSeguimiento.Rows(e.RowIndex).FindControl("lnkInstanciamiento"), LinkButton)
        'RSeguimientoFin.Eliminar(lnk.AccessKey, lnk.CommandArgument)
        'cargarInstanciaSeg(lnk.CommandArgument)
    End Sub
    Protected Sub gvwListaSeguimiento_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles gvwListaSeguimiento.RowEditing
        Dim lnk As LinkButton = CType(gvwListaSeguimiento.Rows(e.NewEditIndex).FindControl("lnkInstanciamiento"), LinkButton)
        Dim arr As String() = Split(lnk.CommandArgument, ",")
        instancias = Session("instanciasSeguimiento")
        Dim Linstancia = From v In instancias _
                            Where v.idSeguimiento.ToString = arr(1).ToString _
                            Select v
        lblTituloInstancia.Text = "Instancia de Seguimiento [Modificar]"
        lblTituloInstancia.ToolTip = "Modificar"
        txtIdInstanciaSeguimiento.Text = Linstancia.ElementAt(0).idSeguimiento
        txtSeguimiento.Value = Linstancia.ElementAt(0).descSeguimiento
        selEstadoInstancia.SelectedIndex = Linstancia.ElementAt(0).estado
        mpInstancia.Show()
    End Sub
    Protected Sub btnGuardarInstancia_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGuardarInstancia.Click
        If txtSeguimiento.Value.Trim.Length > 0 Then
            Dim jsMensaje As String = Nothing
            Dim pSeguimiento As EseguimientoFin = Nothing
            If lblTituloInstancia.ToolTip = "Registrar" Then
                pSeguimiento = New EseguimientoFin
                With pSeguimiento
                    .idEntidadFin = CInt(txtIdEntidad.Text)
                    .descSeguimiento = txtSeguimiento.Value.ToUpper
                    .idUsuario = Me.Master.idUsuario
                End With
                Dim resultado As Boolean = _
                    RSeguimientoFin.Añadir(Me.Master.descEmpresa, pSeguimiento)
                If resultado Then
                    jsMensaje = "<script>javascript:alert(' Se registro correctamente.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                    cargarInstanciaSeg(CInt(txtIdEntidad.Text))
                Else
                    jsMensaje = "<script>javascript:alert(' No se pudo registrar.');</script>)"
                    Controls.Add(New LiteralControl(jsMensaje))
                End If
            ElseIf lblTituloInstancia.ToolTip = "Modificar" Then
                pSeguimiento = New EseguimientoFin
                With pSeguimiento
                    .idEntidadFin = CInt(txtIdEntidad.Text)
                    .idSeguimiento = CType(txtIdInstanciaSeguimiento.Text, Int32)
                    .descSeguimiento = txtSeguimiento.Value.ToUpper
                    .estado = selEstadoInstancia.SelectedIndex
                    .idUsuario = Me.Master.idUsuario
                End With
                jsMensaje = "<script>javascript:alert(' Se modifico correctamente.');</script>)"
                Controls.Add(New LiteralControl(jsMensaje))
                RSeguimientoFin.Editar(Me.Master.descEmpresa, pSeguimiento)
                cargarInstanciaSeg(CInt(txtIdEntidad.Text))
            End If
            lblTituloInstancia.ToolTip = "Registrar"
        End If
    End Sub
    Protected Sub btnCancelarInstancia_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelarInstancia.Click
        lblTituloInstancia.ToolTip = "Registrar"
        mpInstancia.CancelControlID = "btnCancelarInstancia"
    End Sub
#End Region

End Class